home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / merk-zettel v2.0 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  50 lines
  1. 10 print a*b
  2. 20 rem **       merk-zettel       **
  3. 21 rem **   -------------------   **
  4. 22 rem ** written by georg kramer **
  5. 23 rem **     4783 anroechte      **
  6. 24 rem **      (c) 16.2.1985      **
  7. 25 rem *****************************
  8. 26 :
  9. 30 printchr$(147):print
  10. 32 rem **** copyright ****
  11. 35 printspc(12)"[213][195][195][195][195][195][195][195][195][195][195][195][195][195][201]"
  12. 36 printspc(12)"[194] merk-zettel [194]"
  13. 37 printspc(12)"[202][195][195][195][195][195][195][195][195][195][195][195][195][195][203]"
  14. 38 print:printspc(8)"written by georg kramer"
  15. 39 print:printspc(13)"(c) 16.2.1985"
  16. 40 print:fori=1to40:print"-";:next
  17. 50 printspc(41)"zwischenspeichern der bildschirmseite"
  18. 55 print:printspc(10)"neue tastenfunktion:[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]----------------------"
  19. 60 print:printspc(11)" f1 [146] - bild wechsel"
  20. 80 print:printspc(54)"<< taste >>"
  21. 81 poke198,0
  22. 82 geta$:ifa$=""then82
  23. 83 printchr$(147)spc(52)"etwas geduld..."
  24. 84 rem *** daten laden ***
  25. 85 fori=49152to49415
  26. 86 reada:pokei,a:x=x+a:next
  27. 87 ifx<>38638thenprint"data fehler !":end
  28. 88 poke49152+214,14:rem + schriftfarbe +
  29. 89 sys49152
  30. 90 print"[147]":printspc(44)"        programm aktiviert     "
  31. 91 printspc(4)"           $c000-$c107         "
  32. 92 printspc(4)"   ende mit run/stop-restore   "
  33. 93 new
  34. 99 rem **** maschinenprogramm ****
  35. 100 data76,251,192,162,0,134,251,162,194,134,252,162,232,134,253,162,197
  36. 101 data134,254,162,0,134,182,162,199,134,183,160,0,177,251,145,182,165,252
  37. 102 data197,254,240,22,165,251,201,255,240,24,230,251,165,182,201,255,240
  38. 103 data28,230,182,169,0,201,0,240,224,165,251,197,253,208,228,240,24,169
  39. 104 data255,133,251,230,252,169,0,201,0,240,220,169,255,133,182,230,183,169
  40. 105 data0,201,0,240,216,96,165,203,201,4,240,4,76,49,234,96,169,0,141,4,192
  41. 106 data169,4,141,8,192,169,0,141,12,192,169,8,141,16,192,169,0,141,20,192
  42. 107 data169,194,141,24,192,32,3,192,169,0,141,4,192,169,199,141,8,192,169
  43. 108 data232,141,12,192,169,202,141,16,192,169,0,141,20,192,169,4,141,24,192
  44. 109 data32,3,192,169,0,141,4,192,169,194,141,8,192,169,232,141,12,192,169
  45. 110 data197,141,16,192,169,0,141,20,192,169,199,141,24,192,32,3,192,169,0
  46. 111 data133,251,169,216,133,252,160,0,169,1,145,251,230,251,208,250,166,252
  47. 112 data224,218,240,8,230,252,162,0,224,0,240,232,230,252,160,0,145,251,200
  48. 113 data192,232,208,249,76,49,234,96,234,120,169,94,141,20,3,169,192,141
  49. 114 data21,3,88,96
  50.